
*****Replication code for Eurobarometer figures in Appendix I of "Fundraising for Stigmatized Groups: A Text Message Donation Experiment"****

****Install three packages for the aesthetics of the figures

**ssc install palettes, replace
**ssc install colrspace, replace
**ssc install grstyle, replace

***standardize figure aesthetics

set scheme s1mono

grstyle init
grstyle gsize heading medsmall
grstyle gsize axis_title  small
grstyle gsize tick_label small
grstyle gsize key_label vsmall
grstyle gsize small_body vsmall


*****************Figure I.1****************
*******************************************

*****Figure I.1, left
import Outgroup.csv, clear


line roma differentreligion disabled differentethnicity lgbt year, lp(solid dash longdash longdash_dot dash_dot shortdash_dot) ///
	xtitle("Year") ///
	ytitle("% of Respondents with Friends or Acquaintances in Out-Groups") ///
	xlabel(2006(3)2015) ///
	ylabel(0(20)80) ///
	note("Source: Eurobarometer (2006-2015)") ///
	legend(pos(3) col(1)) 
	

		
*****Figure I.1, right
import Outgroup_GR.csv, clear
	
line roma differentreligion disabled differentethnicity lgbt year, lp(solid dash longdash longdash_dot dash_dot shortdash_dot) ///
	xtitle("Year") ///
	ytitle("% of Respondents with Friends or Acquaintances in Out-Groups") ///
	xlabel(2006(3)2015) ///
	ylabel(0(20)80) ///
	note("Source: Eurobarometer (2006-2015)") ///
	legend(pos(3) col(1)) 	
	

	
	
*****************Figure I.2****************
*******************************************

*****Figure I.2, left	
import WorkingRoma.csv, clear

graph hbar comfortable moderatelycomfortable uncomfortable indifferent depends dk, over(group, sort(1) descending) stack percent ///	
	ytitle("% of Respondents Comfortable Working With Different Groups") ///
	note("Source: Eurobarometer (2015)") ///
	legend(label(1 "Comfortable (7-10)") label(2 "Moderately comfortable (5-6)") label(3 "Uncomfortable (1-4)") label(4 "Indifferent") label(5 "It depends") label( 6 "Don't know") pos(3) col(1))
	
	

*****Figure I.2, right	
import DatingRoma.csv, clear

graph hbar comfortable moderatelycomfortable uncomfortable indifferent depends dk, over(group, sort(1) descending) stack percent ///	
	ytitle("% of Respondents Comfortable With their Children Dating Different Groups") ///
	note("Source: Eurobarometer (2015)") ///
	legend(label(1 "Comfortable (7-10)") label(2 "Moderately comfortable (5-6)") label(3 "Uncomfortable (1-4)") label(4 "Indifferent") label(5 "It depends") label( 6 "Don't know") pos(3) col(1))
	

	
	
*****************Figure I.3****************
*******************************************
	
*****Figure I.3, left
import WorkingRoma_GR.csv, clear

graph hbar comfortable moderatelycomfortable uncomfortable indifferent depends dk, over(group, sort(1) descending) stack percent ///	
	ytitle("% of Respondents Comfortable Working With Different Groups") ///
	note("Source: Eurobarometer (2015)") ///
	legend(label(1 "Comfortable (7-10)") label(2 "Moderately comfortable (5-6)") label(3 "Uncomfortable (1-4)") label(4 "Indifferent") label(5 "It depends") label( 6 "Don't know") pos(3) col(1))
	
	
*****Figure I.3, right		
import DatingRoma_GR.csv, clear

graph hbar comfortable moderatelycomfortable uncomfortable indifferent depends dk, over(group, sort(1) descending) stack percent ///	
	ytitle("% of Respondents Comfortable With their Children Dating Different Groups") ///
	note("Source: Eurobarometer (2015)") ///
	legend(label(1 "Comfortable (7-10)") label(2 "Moderately comfortable (5-6)") label(3 "Uncomfortable (1-4)") label(4 "Indifferent") label(5 "It depends") label( 6 "Don't know") pos(3) col(1))
